home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 176-200 / 190 / nethack / een.zoo / dothrow.c < prev    next >
C/C++ Source or Header  |  1988-07-22  |  7KB  |  271 lines
  1. /*    SCCS Id: @(#)dothrow.c  2.3     88/02/02
  2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  3.  
  4. /* Contains code for 't' (throw) */
  5.  
  6. #include "hack.h"
  7.  
  8. extern struct obj *splitobj(), *addinv();
  9. extern boolean hmon();
  10. extern struct monst youmonst;
  11. extern char *Doname();
  12. #ifdef KAA
  13. extern char *xname();
  14. #endif
  15.  
  16. struct monst *bhit(), *boomhit();
  17. dothrow()
  18. {
  19.     register struct obj *obj;
  20.  
  21.     obj = getobj("#)", "throw");   /* it is also possible to throw food */
  22.                        /* (or jewels, or iron balls ... ) */
  23.     if(!obj || !getdir(1))         /* ask "in what direction?" */
  24.         return(0);
  25.     if(obj->owornmask & (W_ARMOR | W_RING)){
  26.         pline("You can't throw something you are wearing.");
  27.         return(0);
  28.     }
  29. #ifdef KAA
  30.     if(obj->otyp == ENORMOUS_ROCK && u.usym != '9') {
  31.         pline("It's too heavy.");
  32.         return(1);
  33.     }
  34.     if(!u.dx && !u.dy && !u.dz) {
  35.         pline("You cannot throw an object at yourself.");
  36.         return(0);
  37.     }
  38. #endif
  39.     u_wipe_engr(2);
  40.  
  41.     if(obj == uwep){
  42.         if(obj->cursed){
  43.             pline("Your weapon is welded to your hand.");
  44.             return(1);
  45.         }
  46.         if(obj->quan > 1)
  47.             setuwep(splitobj(obj, 1));
  48.         else
  49.             setuwep((struct obj *) 0);
  50.     }
  51.     else if(obj->quan > 1)
  52.         (void) splitobj(obj, 1);
  53.     freeinv(obj);
  54.     return(throwit(obj));
  55. }
  56.  
  57. throwit(obj)
  58.     register struct obj *obj;
  59. {
  60.     register struct monst *mon;
  61.  
  62.     if(u.uswallow) {
  63.         mon = u.ustuck;
  64.         bhitpos.x = mon->mx;
  65.         bhitpos.y = mon->my;
  66.     } else if(u.dz) {
  67.       if(u.dz < 0) {
  68.         pline("%s hits the ceiling, then falls back on top of your head.",
  69.         Doname(obj));           /* note: obj->quan == 1 */
  70.         if(obj->olet == POTION_SYM)
  71.         potionhit(&youmonst, obj);
  72.         else {
  73.         if(uarmh) pline("Fortunately, you are wearing a helmet!");
  74.         losehp(uarmh ? 1 : rnd((int)(obj->owt)), "falling object");
  75.         dropy(obj);
  76.         }
  77.       } else hitfloor(obj);
  78.       return(1);
  79.  
  80.     } else if(obj->otyp == BOOMERANG) {
  81.         mon = boomhit(u.dx, u.dy);
  82.         if(mon == &youmonst) {          /* the thing was caught */
  83.             (void) addinv(obj);
  84.             return(1);
  85.         }
  86.     } else {
  87.         if(obj->otyp == PICK_AXE && shkcatch(obj))
  88.             return(1);
  89.  
  90.         mon = bhit(u.dx, u.dy, (obj->otyp == ICE_BOX) ? 1 :
  91.             (!Punished || obj != uball) ? 8 : !u.ustuck ? 5 : 1,
  92.             obj->olet,
  93.             (int (*)()) 0, (int (*)()) 0, obj);
  94.     }
  95.     if(mon) {
  96.         /* awake monster if sleeping */
  97.         wakeup(mon);
  98.         if(thitmonst(mon, obj)) return(1);
  99.     }
  100.     if(!u.uswallow)  {
  101.         /* the code following might become part of dropy() */
  102.         if(obj->otyp == CRYSKNIFE)
  103.             obj->otyp = WORM_TOOTH;
  104.         obj->ox = bhitpos.x;
  105.         obj->oy = bhitpos.y;
  106.         obj->nobj = fobj;
  107.         fobj = obj;
  108.         /* prevent him from throwing articles to the exit and escaping */
  109.         /* subfrombill(obj); */
  110.         stackobj(obj);
  111.         if(Punished && obj == uball &&
  112.             (bhitpos.x != u.ux || bhitpos.y != u.uy)){
  113.             freeobj(uchain);
  114.             unpobj(uchain);
  115.             if(u.utrap){
  116.                 if(u.utraptype == TT_PIT)
  117.                     pline("The ball pulls you out of the pit!");
  118. #ifdef SPIDERS
  119.                 else if(u.utraptype == TT_WEB)  {
  120.                     pline("The ball pulls you out of the web!");
  121.                     pline("The web is destroyed!");
  122.                     deltrap(t_at(u.ux,u.uy));
  123.                 }
  124. #endif
  125.                 else  {
  126.                 register long side =
  127.                     rn2(3) ? LEFT_SIDE : RIGHT_SIDE;
  128.                 pline("The ball pulls you out of the bear trap.");
  129.                 pline("Your %s leg is severely damaged.",
  130.                     (side == LEFT_SIDE) ? "left" : "right");                                set_wounded_legs(side, 500+rn2(1000));
  131.                 losehp(2, "thrown ball");
  132.                 }
  133.                 u.utrap = 0;
  134.             }
  135.             unsee();
  136.             uchain->nobj = fobj;
  137.             fobj = uchain;
  138.             u.ux = uchain->ox = bhitpos.x - u.dx;
  139.             u.uy = uchain->oy = bhitpos.y - u.dy;
  140.             setsee();
  141.             (void) inshop();
  142.         }
  143.         if(cansee(bhitpos.x, bhitpos.y)) prl(bhitpos.x,bhitpos.y);
  144.     }  else
  145.         mpickobj(u.ustuck,obj);
  146.     return(1);
  147. }
  148.  
  149. hitfloor(obj)
  150.     register struct obj *obj;
  151. {
  152.     pline("%s hits the floor.", Doname(obj));
  153.     if(obj->otyp == EXPENSIVE_CAMERA) {
  154.         pline("It is shattered in a thousand pieces!");
  155.         obfree(obj, Null(obj));
  156. #ifdef RPH
  157.     } else    if(obj->otyp == MIRROR) {
  158.         pline ("The mirror shatters.  That's seven years bad luck!");
  159.         obfree(obj, Null(obj));
  160.         change_luck(-2);
  161. #endif
  162.     } else    if(obj->otyp == EGG) {
  163.         pline("\"Splash!\"");
  164.         obfree(obj, Null(obj));
  165. #ifdef KAA
  166.     } else    if(obj->otyp == CREAM_PIE) {
  167.         pline("What a mess!");
  168.         obfree(obj, Null(obj));
  169. #endif
  170.     } else    if(obj->olet == POTION_SYM) {
  171.         pline("The flask breaks, and you smell a peculiar odor ...");
  172.         potionbreathe(obj);
  173.         obfree(obj, Null(obj));
  174.     } else
  175.         dropy(obj);
  176. }
  177.  
  178. thitmonst(mon, obj)
  179.     register struct monst *mon;
  180.     register struct obj   *obj;
  181. {
  182.     register int    tmp;
  183.  
  184.     if(obj->olet == WEAPON_SYM) {
  185.         tmp = -1+u.ulevel+mon->data->ac+abon();
  186.         if(obj->otyp < DART) {
  187.             if(!uwep ||
  188.                 uwep->otyp != obj->otyp+(BOW-ARROW))
  189.                 tmp -= 4;
  190.             else {
  191.                 tmp += uwep->spe;
  192.             }
  193.         } else
  194.         if(obj->otyp == BOOMERANG) tmp += 4;
  195.         tmp += obj->spe;
  196.         if(u.uswallow || tmp >= rnd(20)) {
  197.             if(hmon(mon,obj,1) == TRUE){
  198.               /* mon still alive */
  199. #ifndef NOWORM
  200.               cutworm(mon,bhitpos.x,bhitpos.y,obj->otyp);
  201. #endif
  202.             } else mon = 0;
  203.             /* weapons thrown disappear sometimes */
  204.             if(obj->otyp < BOOMERANG && rn2(3)) {
  205.                 /* check bill; free */
  206.                 obfree(obj, (struct obj *) 0);
  207.                 return(1);
  208.             }
  209.         } else miss(objects[obj->otyp].oc_name, mon);
  210.     } else if(obj->otyp == HEAVY_IRON_BALL) {
  211.         tmp = -1+u.ulevel+mon->data->ac+abon();
  212.         if(!Punished || obj != uball) tmp += 2;
  213.         if(u.utrap) tmp -= 2;
  214.         if(u.uswallow || tmp >= rnd(20)) {
  215.             if(hmon(mon,obj,1) == FALSE)
  216.                 mon = 0;    /* he died */
  217.         } else miss("iron ball", mon);
  218. #ifdef KAA
  219.     } else if (obj->otyp == ENORMOUS_ROCK) {
  220.         tmp = 15+mon->data->ac;  /* Very likely to hit! */
  221.         if (hmon(mon, obj, 1) == FALSE) mon=0;
  222.         else miss("enormous rock",mon);
  223.     } else if(obj->otyp == CREAM_PIE &&
  224.         (u.ulevel > rn2(10)) || u.ustuck == mon) {
  225.         pline("The cream pie splashes over %s%s!",monnam(mon),
  226.             index("aEfgy",mon->data->mlet) ? "" : "'s face");
  227.         obfree(obj, (struct obj *) 0);
  228.         if(mon->msleep) mon->msleep = 0;
  229.         setmangry(mon);
  230.         mon->mcansee = 0;
  231.         mon->mblinded += rnd(25);
  232.         if (mon->mblinded <= 0) mon->mblinded = 127;
  233.         return(1);
  234. #endif
  235.     } else if(obj->olet == POTION_SYM && u.ulevel > rn2(15)) {
  236.         potionhit(mon, obj);
  237.         return(1);
  238.     } else {
  239.         pline("The %s misses %s.",xname(obj),
  240.         cansee(bhitpos.x,bhitpos.y) ? monnam(mon) : "it");
  241.  
  242.         if(obj->olet == FOOD_SYM && mon->data->mlet == 'd')
  243.             if(tamedog(mon,obj)) return(1);
  244.         if(obj->olet == GEM_SYM && mon->data->mlet == 'u' &&
  245.             !mon->mtame){
  246.             char buf[BUFSZ];
  247.             char *nogood = " is not interested in your junk.";
  248.             char *addluck = " graciously accepts your gift.";
  249.  
  250.             strcpy(buf,Monnam(mon));
  251.  
  252.             if(obj->dknown &&
  253.                objects[obj->otyp].oc_name_known)  {
  254.                 if(objects[obj->otyp].g_val > 0)  {
  255.                     change_luck(5);
  256.                     strcat(buf,addluck);
  257.                 }  else
  258.                     strcat(buf,nogood);
  259.             }  else  {  /* value unknown to @ */
  260.                 change_luck(1);
  261.                 strcat(buf,addluck);
  262.             }
  263.             pline(buf);
  264.             mpickobj(mon, obj);
  265.             rloc(mon);
  266.             return(1);
  267.         }
  268.     }
  269.     return(0);
  270. }
  271.